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introduction 


The great puzzle-composer Henry Ernest Dudeney once wrote: “The history of puzzles 
entails nothing short of the actual story of the beginnings and development of exact 
thinking in Man. If there were no puzzles to solve, there would be no questions to ask; 
and if there were no questions to be asked, what a dull world it would be!" 

Now, Dudeney made his living out of puzzles, so we may forgive any slight excesses; 
but it is probably true that puzzles tend to encourage a certain amount of logical 
thinking. “Problem-solving" is one of the important arts of our age. 

But above all, puzzles are fan. 

There is a long tradition of puzzles, going back to ancient Babylon and beyond. Many 
of the puzzles are as fascinating now as they were seven thousand years ago. And, to 
prove it. puzzles now enter the Computer Age. This is a book of computer puzzles, to 
run on the Sinclair ZX Spectrum and ZX81. Computers are excellent for experimenting 
with puzzles: you can try an answer and see whether it works. 

Some puzzles, in fact, can only be made to work on a computer. For instance, you 
could computerize a four-dimensional Rubik hypercube; but you could never make one. 
(Unfortunately you probably couldn’t solve one either, so I haven’t pursued this par¬ 
ticular idea here.) On a colour computer you can change colours in ways which would be 
very tricky to achieve with the traditional “hardware” of pencil and paper, tiddlywinks 
and chessboards. 

Other puzzles adapt well. You know the one about the wolf, the goat, and the 
cabbage, trying to cross the river? On a computer you can draw the river, load the boat, 
watch it float across the river, and see who gets eaten . . . 

Anyway, this book has three purposes; to move puzzles into the Computer Age; to 
teach a bit of clear thinking; but mostly, for enjoyment. It was fun writing it: I hope you 
have as much fun reading it and running the programs. 


read this bit first 


... or you’ll get in a muddle. 

1. Most programs in this book come in two versions: the first for the ZX81 (with at 
least 4K of RAM), the second for the ZX Spectrum. The last four programs are in a 
special section for Spectrum enthusiasts. 

2. The ZX81 version will of course run on a Spectrum, but the Spectrum version 
makes use of the extra facilities available. 

3. In order to save space, hence paper, hence save you money, the Spectrum listing is 
found by modifying the ZX81 listing. The Spectrum section shows exactly how to 
do this, in full detail. Any ZX81 lines that will be changed in a Spectrum version are 
marked with an arrow—> to save Spectrum-owners time in entering the programs. 

4. One nuisance: ZX81 variables are all upper-case (A, B, C, etc.); but Spectrum 
variables are normally taken as lower-case (a, b, c, etc.). Again, to save paper, the 
Spectrum version is not rewritten to lower the case of all variables; but it is assumed 
that when you type the program in, you will in fact use lower case. So PRINT X, Y 
in the listing must be entered by Spectromaniacs as PRINT x, y . . . etc. 

5. A box □ is used to represent a space when this is not otherwise obviously needed, ■ 
is an inverse video space, and boxes around characters denote inverse video. 

6. ZX81 he say “GOTO” and "GOSUB”; whereas Spectrum he say “GO TO" and 
“GO SUB”. No notice is taken of this in the listings. 

7. A particular problem for typesetters is the use of graphics characters. The con¬ 
ventions in this book are: 

ZX8I: Small g means “graphics character": it is followed by the letter or number of 
the right key. So “gT” is HjJ. 

Spectrum: Similarly; but characters accessed via CAPS SHIFT get a “c” added on 
the end. So “g6” is ; and "g6c” is 33- 

8. On the Spectrum, you should set up BORDER, PAPER, and INK colours directly 
from the keyboard, before running each program. To do this, just enter in 
command mode something like 

BORDER 1: PAPER 3: INK 7 

for a blue border, magenta paper, and black ink. (Hit ENTER twice to get the 
PAPER colour showing.) Any combination is in principle permitted, but some 
look rather yucky. Experiment; you can always change the colours before a RUN. I 
have not included these initial commands in the Spectrum programs, since they are 
so routine; most Spectrum versions introduce extra colour commands anyway. 

9. The programs are ready to use on their own, and need not be run through in the 
order they occur in the book: dip in as it pleases you, copy the listing in, and follow 
the instructions. 

10. Enough of this idle chip-chat (.sicl^ffi work! 


Ferry your possessions across the 
river—but be careful! They 
eat each other. 


i the wolf, the geat and 
the cabbage 


Imagine that you are a seventeenth-century farmer, taking his wares to market. They 
are: 


1 wolf 
1 goat 
1 cabbage. 


Don't ask me the whys and wherefores of wolf-farming. I’m only the author. You come 
to a river, which you must cross. There is a boat, which will carry you, together with at 
most one additional item (wolf, goat, or cabbage). 

While you are in the vicinity, your wares behave their little selves admirably. But: 
should you leave the wolf alone with the goat on one bank, while you are crossing in the 
boat or sitting on the far side . . . well, wolves are rather partial to a nice bit of goat steak. 
And. similarly, goats can nibble a pretty big hole in your prize cabbage. Luckily, the wolf 
detests cabbage (he went to boarding-school as a young cub) and the cabbage is a very 
peaceable fellow indeed; so you can leave these two together if you wish. 

What items must be moved, and in what order, to cross the river? 







ZX81 VERSION 


6 


10 LET B$ = “□ gR gF gF gF gE □” 

20 LET BC = 0 

30 LET QUERY = 500 

40 LET CHECK = 1000 

50 LET BOAT = 2000 

60 LET BK = 1 

70 LET OUT = 2500 

80 LET IN = 3000 

82 LET ERROR = 5000 

85 LET EAT = 4000 

90 LET C$ = “□ □□□□□□" 

93 DIM D$ (2, 3) 

95 LET D$ (1) = “WGC” 

100 PRINT AT 15, 0; “□ □ g6 g6 g6 [22 spaces] g6 g6 g6” 

110 PRINT AT 16, 0; “□ □ ■ ■ ■ gS [22 times] ■ ■ ■” 

120 PRINT AT 14, 2; D$ (1) 

130 PRINT AT 15, 5; B$ 

200 REM MOVE 

210 GOSUB QUERY 

220 GOSUB BOAT 

230 GOTO 200 

500 REM QUERY 

505 IF BC = 0 THEN GOTO 540 

510 PRINT AT 2,0; “TAKE OUT OF BOAT?” 

520 INPUT 0$ 

530 GOSUB OUT 

535 IF D$ (BK) = “□ □ □” THEN GOTO 570 
540 PRINT AT 2,0; “PUT INTO BOAT? □ □ □ □” 

550 INPUT 1$ 

560 GOSUB IN 
570 RETURN 
1000 REM CHECK 

1010 IF D$ (2) = “WGC” THEN PRINT AT 2, 0; “OlJjD □ □ □ □ 
WELL DONE □□□□□□□” 

1020 IF D$ (2) = “WGC” THEN STOP 
1030 RETURN 
2000 REM BOAT 

2010 FOR T ® |> (BK = 1) + 20 * (BK <> 1) TO 20 * (BK = 1) 

[f 5 * (BK < > 1) STEP 1 - 2 * (BK < > 1) 



2020 

2025 

2030 

2035 

2040 

2050 

2500 

2505 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

3000 

3005 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3085 

3090 

4000 

4010 

4020 

4030 

4040 

4050 

5000 

5010 

5020 

5030 


PRINT AT 15. T: B$ 

PRINT AT 14. T; C$ 

NEXTT 
GOSUB EAT 
LET BK = 3 - BK 
RETURN 
REM OUT 

IF OS = ” " THEN RETURN 
FOR F = 3 TO 5 

IF C$ (F) = 0$ THEN GOTO 2540 
NEXT F 
LET C$ (F) = 

LET D$ (BK, F -2) = 0$ 

PRINT AT 14, 2 * (BK = 1) + 27*(BK<» 1); D$ (BK) 

PRINT AT 14, 5 * (BK = 1) + 20*(BK<» 1);C$ 

LET BC = BC - 1 
GOSUB CHECK 
RETURN 
REM IN 

IF 1$ = “ " THEN RETURN 
FOR F = 1 TO 3 

IF D$ (BK, F) = 1$ THEN GOTO 3040 
NEXT F 

LET D$ (BK, F) = 

LET C$ (F + 2) = 1$ 

PRINT AT 14, 2 * (BK = 1) + 27 * (BK < > 1); D$ (BK) 

PRINT AT 14, 5 * (BK S I) + 20 * (BK < > 1); C$ 

LET BC = BC +1 

IF BC = 2 THEN GOTO ERROR 

GOSUB CHECK 

REM EAT 

LET X$ = D$ (BK) 

IF X$ = “WGD” OR X$ = “DGC” THEN GOTO 4040 
RETURN 

PRINT AT 2, 0; “□ □□□□□□ WOOPS ... EATEN □□□ Eg an” 
STOP 

REM ERROR 

PRINT AT 2, 0; “SORRY, TOO MANY IN BOAT. TRY” 

PRINT “AGAIN” 

STOP 


USING THE ZX81 VERSION 


Type it all in, check it; press RUN. You will see the river; the boat; and the Wolf, Goat, 
and Cabbage represented by their initials, sitting on the bank. (I haven’t drawn you in, 
but you’re there: you move with the boat.) 

At each stage you will be asked what, if anything, you wish to take out of the boat. To 
this you may answer “W”, “G”, IC”—if they’re in there to take out—or if you 

don’t want anything removed. Next you are asked for what goes into the boat: there is 
the same choice of inputs. 

The boat then starts to cross the river, and you soon find out if you made a good 
choice. 

If you get everything across, the computer says so. 


ZX SPECTRUM VERSION 

Change the following lines: 

10 LET B$ = “□ g7 g3c g3c g3c g4c □” 

95 LET D$ (1) = “gA gG gC” 

100 PRINT AT 15, 0; “□ □ g3c g3c g3c [22 spaces] g3c g3c g3c” 

110 PRINT AT 16, 0; “□ □ □ □ INK 5; “g3 [22 times] ”; INK 0; “□ □ 
130 PRINT AT 15, 5; INK 3; B$ 

1010 IF D$ (2) = “gA gG gC” THEN PRINT AT 2, 0; “□ aStJ3 □ □ □ 
Well done! □ □ □ □ DpCl”: STOP 
1020 [delete this line altogether] 

2020 PRINT INK 3; AT 15, T; B$ 

2520 IF CODE C$ (F) = CODE 0$ + 47 THEN GOTO 2540 
2550 LET D$ (BK, F - 2) = CHR$ (47 + CODE 0$) 

3020 IF CODE D$ (BK, F) = CODE 1$ + 47 THEN GOTO 3040 
3050 LET C$ (F + 2) = CHR$ (47 + CODE 1$) 

4020 IF X$ = “gA gG □” OR X$ = “□ gG gC” THEN GO TO 4040 


Do you know the one where a Spectrum, a 


Yes, and you mustn’t 

Cray-1, and an Apple have got to cross 


let the Cray-1 take a 

a data-stream with only one modem...? 


byte out of the 

Apple... 










Add these lines: 


525 IF OS = “W” THEN LET 0$ = “A” 

555 IF 1$ = “W” THEN LET 1$ = “A” 

2045 INK 0 

Now add lines to set up three user-defined graphics for the Wolf, Goat, and Cabbage (at 
A G C in the user-defined graphics character section): 

6000 LET Y$ = “AGC” 

6010 DATA 162, 226, 242, 94, 30, 36, 34, 34, 56, 40, 226, 254, 62, 34, 34, 34, 16, 
84, 254, 254,124,124, 56,16 
6020 FOR X = 1 TO 3 
6030 FOR N = 0 TO 7 
6040 READ M 

6050 POKE USR Y$ (X) + N, M 
6060 NEXTN 
6070 NEXT X 

If you want some sound-effects for a solution, also add lines: 

1015 IF D$ (2) = “gA gG gC” THEN BEEP .3, 0: BEEP .3, 4: BEEP .3, 7: 
BEEP 1.5, 10: STOP 


And delete: 

STOP in 1010 

USING THE SPECTRUM VERSION 

1. Start, on first switching on, with GOTO 6000 to set up the graphics characters. 

2. Thereafter, restart the program with RUN; proceed as in the ZX81 version. 


Shuffle the alphabet (missing Y and Z) 
back into shape: 


2 alphabetical disorder 


This program starts with the alphabet arranged like this: 

A F K P U 

B G L Q V 

C H M R W 

D I N S X 

E J O T □ 

and the first thing it does is jumble them all up. 

Your job is to get them back in order again. You do this by “moving” any letter 
adjacent to the blank space □, into the space. Of course the space now ends up where the 
letter was. In other words, you imagine yourself moving the space around the rectangle 
of letters. 

To move the space, use the four “arrow” keys 5,6,7,8: the arrow gives the direction. 

ZX81 VERSION 


10 FOR I = 1 TO 6 

20 PRINT AT 2* 1,10; "gH gH gH gH gH gH gH gH gH gH gH” 

30 NEXT I 
40 FOR I = 1 TO 5 

I g 50 PRINT AT 2 * I + 1, 10; “gHDgHDgHngHngHngH” 

60 NEXT I 
70 DIMAS (5, 5) 

100 FOR I = 1 TO 5 
110 FOR J = 1 TO 5 

115 LET A$ (I, J) = CHR$ (32 + I + 5 * J — 62 * fl BHaND J gljH ) 
120 PRINT AT 2 * I + 1,2 * J + 9; AS (I, J) 

130 NEXT J 
140 NEXT I 


10 


200 LET P = 5 

210 LET Q = 5 

215 FOR T = 1 TO 50 

220 LET W = 2 * INT ( 2 * RND) — 1 

230 LET P0 = P + W 

240 IF P0 > 5 OR P0 < 1 THEN GOTO 220 

250 LET W = 2 * INT (2 * RND) - 1 

260 LET Q0 = Q + W 

270 IF 00 > 5 OR 00 < 1 THEN GOTO 250 

275 GOSUB290 

280 NEXTT 

285 GOTO 400 

290 LET Y$ = A$ (P0, Q0) 

300 LET A$ (P0, Q0) = A$ (P, Q) 

310 LET A$ (P, Q) = Y$ 

320 PRINTAT2*P0+1,2*00 + 9; A$(P0,Q0) 
330 PRINT AT 2*P + l,2*Q + 9; A$ (P, Q) 

340 LET P = P0 
350 LET Q = Q0 
360 RETURN 

400 PRINT AT 21, 0; “NOW IT “ ” S YOUR TURN” 
410 IF INKEY$ < > “ ” THEN GOTO 410 
420 IF INKEY$ = “ ” THEN GOTO 420 
430 LET 1$ = INKEY$ 

440 IF 1$ = “5” THEN LET Q0 = Q - 1 
450 IF 1$ = “6” THEN LET P0 = P + 1 
460 IF 1$ = “7” THEN LET P0 = P — 1 
470 IF 1$ = “8” THEN LET Q0 = Q + 1 

480 IFP0< 1 THEN LET P0 = 1: GOTO 410 

481 IF P0 > 5 THEN LET P0 = 5: GOTO 410 

482 IF 00 < 1 THEN LET Q0= 1: GOTO 410 

483 IF O0 > 5 THEN LET Q0 = 5: GOTO 410 
490 GOSUB290 

500 GOTO 410 


USING THE ZX81 VERSION 

Start with RUN; wait for the jumbling to finish; now start pressing those arrow keys 


SPECTRUM VERSION 

Change the following lines: 


20 PRINT AT 2 * I, 10; PAPER 3; “ [11 spaces] ” 

50 PRINT AT 2*1+ 1, 10; INK 3; ■” 

115 LET A$ (I, J) = CHR$ (I + 5 * J + 59 - (I *4 5 AND J = 5) * 57) 

Add the line: 

355 BEEP .1, P + 5 * Q 

USING THE SPECTRUM VERSION 

Start with RUN; wait (rather less time) for the jumbling to finish; start pressing the 
arrow keys. 



12 





A line of cats sits on a wall. 
Can you swap them round? 


3 cat-swap 


The program presents you with a line of numbered cats, in order 1 2 3 4 5 6 7 (say). You 
must rearrange them into order 7 6 5 4 3 2 1. There is one blank space on the left-hand 
end. A cat may move into the space if it is adjacent to it; or it may hop over exactly one cat 
(like a draughts piece taking) into the vacant space. You choose which cat to move, and 
keep going until they are in order. The space must end up where it started out, at the left. 


ZX81 VERSION 

10 LET P = 0 
20 DIM W (9) 

30 FOR I = 1 TO 9 
40 LET W (I) = I 
50 NEXT I 

-> 100 PRINT AT 0, 0; “HOW MANY CATS” 

-» 105 INPUT C 

110 LET N$ = “□ 1 □2n3D4n5n6D7n8D9” 
120 PRINT AT 16, 6; + N$ (TO 2 * C) 

130 FOR I = 1 TO C 

140 PRINT AT 14, 6 + 2 * I; "*” 

150 NEXT I 

-» 200 PRINT AT 0, 0; “MOVE WHICH CAT” 

205 INPUT A 

210 IF A < 1 OR A > C THEN GOTO 200 
212 PRINT AT 0,0; “[14 spaces]” 


**;*««. 

■ % a 3 <*. s & -? s o 
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215 IF ABS (W (A) - P) > 2 THEN GOTO 200 

220 PRINT AT 16, 6 + 2 * P; A; AT 14, 6 + 2 * P; AT 16, 6 + 2 * W (A); 
AT 14,6 + 2* W (A); 

224 LET R = W (A) 

225 LET W (A) = P 
230 LET P = R 

240 FOR J = 1 TO C 

250 IFW(J) + J<>C+1THEN GOTO 200 
260 NEXT J 

265 IF P > 0 THEN GOTO 200 

270 PRINT AT 8, 12; “CATS SWAPPED” 

280 STOP 


USING THE ZX81 VERSION 

Type RUN. The cats are the asterisks. Choose the numbers, see how they jump. If you 
get them in the right order, the computer says so. 


SPECTRUM VERSION 

Change the following lines: 

100 INPUT “How many cats? ”; C 
105 [delete this line] 

140 PRINT AT 14, 6 + 2 * I; INK 4; “gC”; INK 0 
200 INPUT “Move which cat?”; A 
205 [delete this line] 

220 PRINT AT 16, 6 + 2 * P; A; AT 14, 6 + 2 * P; INK 4; “gC”; INK 0; 
AT 16, 6 + 2 * W (A); “■”; AT 14, 6 + 2 * W (A); BEEP .1, A 
Add a routine to set up the graphics character: 

500 DATA 74, 122, 122, 50, 250, 254, 124, 0 

510 FOR T = 0TO 7 

520 READ X 

530 POKE USR “C" + T, X 

540 NEXTT 


USING THE SPECTRUM VERSION 

First time around after switching on, start with GO TO 500. When the graphics character 
has been set up, you may use RUN thereafter. Choose which cat to hop, just as in the 
ZX81 version. 
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Use the nine digits to make 100: 


4 stringing the tnn 


The screen will show you the nine digits 1-9, with spaces between them; and an arrow 
pointing to a space. You can move the arrow and insert in the spaces any of the signs +, 
or remove them if you decide to later. When you think what is on the screen 
works out to 100 press “P” for a check. 

Gaps between digits are ignored when working out the answer; for instance if you’d 
reached 

1+2 3 + 4 5 + 6 + 7 + 8 — 9 
this is interpreted as 

1+ 23 + 45 + 6 + 7 + 8- 9 
which is 
81. 

CIos e-ish, but not good enough: try again! 


X+2 3-4-+S+6 7-8 9 


ZX81 VERSION 

10 LET Nf w'“ 1 □ 2 □ 3 □ 4 □ 5 □ 6 □ 7 □ 8 Ctfr 
20 LET C$ = “□ □ > 

30 LET H = 1 
100 PRINT AT 16, 10; N$ 

110 PRINT AT 18, 7 + 2 * H; C$ 

120 IF INKEYS < > “ j” THEN GOTO 120 
130 IF INKEYS = “ ” THEN GOTO 130 
140 LET 1$ = INKEYS 
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150 IF 1$ = "5” THEN GOSUB 300 
160 IF 1$ = “8” THEN GOSUB 400 
170 IF 1$ = “B" THEN LET N$ (2 * H) = 

180 IF 1$ = “K” THEN LET N$ (2 * H) = " + " 

190 IF 1$ = “J" THEN LET N$ (2 * H) = 

200 IF IS = “V” THEN LET N$ (2 * H) = "/” 

210 IF 1$ = “X" THEN LET N$ (2 - H)K ‘*Cf’ 

220 IF IS = “P" THEN GOTO 1000 

230 GOTO 100 

300 LETH = H- 1 + (H = 1) 

310 PRINT AT 18, 7 + 2 * H; C$ 

320 RETURN 

400 LET H = H + 1 - (H = 8) 

410 GOTO 310 
1000 LET AS = “ ’’ 

1010 FORT =1 TO 17 

1020 IF N$ (T) 4 »THEN LET AS = AS + N$ (T) 

1030 NEXTT 

1040 PRINT AT 1,5; "THE VALUE IS VAL AS 
->• 1050 IF VAL AS = 100THEN PRINT AT 3. 5; "WELL DONE” 

1060 IF VAL AS = 100 THEN STOP 
1070 FOR J = 1 TO 50 
1080 NEXT J 

1090 PRINT AT 1,0; “[32 spaces]” 

1100 PRINT AT 3,0; “[32 spaces] ” 

1110 GOTO 100 
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USING THE ZX81 VERSION 


RUN: use the keys 5 and 8 to move the cursor; input arithmetical signs using the keys 
they are written on: input a space using the X key. When you are happy, press P: see if 
you’ve reached the century. 


SPECTRUM VERSION: 

Change the following lines: 

20 LET C$ = "□□! 

1050 IF VAL A$ = 100THEN PRINT AT 3. 5; "Well done!": BEEP .3, 0: 
BEEP .3. 4: BEEP . 3. 7: BEEP 1.5. 10 

USING THE SPECTRUM VERSION 

Just as for the ZX81. 
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Divide the wine, but don’t 
spill it! 


5 fair shares 


You have three glasses of claret (this is the SDP version) which hold respectively 8. 5, 
and 3 measures. The 8-measure glass is full, the others empty. You must divide the wine 
into two exactly equal portions, by pouring from one glass to another. You may only stop 
pouring when one glass gets full or the other gets empty. 

Can you do it? 

This is a famous problem; it's been around at least since 1400 AD. The other famous 
problem has been getting your hands on the bottle to begin with . . . 


ZX81 VERSION 


10 LET A$ = “□ □ □ CggiP 
20 LET B$ = “gG gG gG gG" 

30 LET C$ = “g8 □ □ □ □ g5" 

40 LET D$ = “g8 □ □ □ Dg5” 

50 DIM H (3) 

60 LET H (3) = 8 
100 FORI =1 TO 3 
110 LETK = 3 * I - (I > 1) 

120 FORT =1 TO K 

130 PRINT AT 13 —K + T, 10*1 —7; C$ 

140 NEXTT 

150 PRINT AT 14, 10 * I - 7; D$ 

160 PRINT AT 15, 10 * I - 5; K 
170 NEXT I 
180 GOSUB 1000 

200 PRINT AT 0,0; “POUR FROM?” 

205 INPUT F 

207 IF F < > 3 AND F < > 5 AND F < > 8 THEN GOTO 200 
210 PRINT AT 0,0; “POUR INTO? ” 

215 INPUT G 


217 

220 

230 

240 

300 

310 

320 

330 

340 

400 

410 

420 

500 

510 

520 

600 

610 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1090 


IF G < > 3 AND G < > 5 AND G < > 8 THEN GOTO 210 
LET I = INT ((F + 1) / 3) 

LET J = INT ((G + 1) / 3) 

LET O = H (I) + H (J) 

IF O < G THEN GOSUB 400 
IF Q < = G THEN GOSUB 500 
GOSUB 1000 

IF H (2) = 4 AND H (3) = 4 THEN GOSUB 600 

GOTO 200 

LET H (J) = G 

LET H (I) = O - G 

RETURN 

LET H (J) = O 

LET H (I) = 0 

RETURN 

PRINT AT 2, 10; “WELL DONE" 

STOP 

FOR I=1 TO 3 
FOR T = 1 TO H (I) 

PRINT AT 14 - T, 10 * I - 6; B$ 

NEXTT 

FOR T = H (I) + 1 TO 3 * I - (I > 1) 

PRINT AT 14 - T, 10 * I - 6; A$ 

NEXTT 
NEXT I 
RETURN 






USING THE ZX81 VERSION 


RUN; Choose the glass to pour from and into, using the numbers written below them 
repeat until you get 4 measures in glass 5 and 4 in glass 8. 

SPECTRUM VERSION 

Change the following lines: 

20 LET B$ = “g3 g3 g3 g3” 

30 LET C$ = “g5 □ □ □ □ g5c” 

40 LET D$ = “g5 g8c g8c g8c g8c g5c” 

200 INPUT “Pour From?F 
205 [delete this line] 

210 INPUT “Pour Into?”; G 
215 [delete this line] 

Add these: 

70 LET G = 8 
1005 INK 2 + I 
1080 INK 0 

1025 IF I = INT ((G + 1) / 3) THEN BEEP .05, 5 - T: 

BEEP .05. 5 - T - .3: BEEP .05, 5 - T - .7 

USING THE SPECTRUM VERSION 

As for the ZX81. The wine changes colour . . . 


As you move through the forest, 
you accumulate a magic charge: 
to emerge it has to be zero. 

Can you get through? 

5 the magic forest 


Here the computer draws a square forest, with numbered squares. This number repre¬ 
sents the amount of “magic charge” at that point in the forest. You move a cursor 
through the forest, aiming to get to sanctuary on the other side: sanctuary is the 
goalpost-shaped area. As you encounter a given square its magic charge adds to yours. 
However, being magic, the adds ignore carries; so for instance 5 + 7 is 2. not 12; and 8 + 
6 is 4. That way. you can lose magic charge, because (say) 3 + 7 = 0 and the charge has all 
gone. 

Can you emerge from the wood with zero magic charge? 


ZX81 VERSION 


1 FAST 

2 LET C = 0 

5 DIM D (10, 10) 

10 FOR I = 1 TO 10 
20 FOR J = 1 TO 10 
30 LET D (I, J) = INT (10 * RND) 

35 PRINT AT2 * I — 2, 2 * J + 4; D (I, J) 

40 NEXT J 
50 NEXT I 

60 PRINT AT9, 1; “g3 g6"; AT 10, 1; “g8”; AT 11, 1; “g2 g7” 

70 PRINT AT 9. 30; “g6 g4”; AT 10, 31; "g5"; AT 11,30; “g7 gl" 
80 SLOW 
100 LET P = 10 
105 LET 1® 2 
110 LET N = 0 
120 GOSUB 1000 

200 IF INKEYS «>" "THEN GOTO 200 
210 IF INKEYS IP' THEN GOTO 210 


220 LET 1$ = INKEY$ 

224 LET P0 = P 
226 LET 00 = 0 

230 IF 1$ = "5” THEN LET 0 = 0=2 

240 IF 1$ = "6" THEN LET P = P + 2 

250 IF 1$ = "7” THEN LET P = P - 2 

260 IF 1$ = “8” THEN LET Q = 0 + 2 

262 LET C = C + 1 

265 IF P > 18 THEN GOTO 500 

270 IF O < 6 OR O > 24 THEN GOTO 300 

280 LET N = N + D (1 + P/2. 0/2 - 2) 

290 IF N > 9 THEN LET N = N - 10 
300 GOSUB 1000 
310 GOSUB 1020 

320 IF P= 10 AND 0 = 30 THEN GOTO 2000 
400 GOTO 200 
500 LET P = P - 2 

510 PRINT AT 21.0; "OUT OF BOUNDS- 
520 FOR T = 1 TO 50 
530 NEXTT 

540 PRINT AT 21.0; “□□□□□□□□□□□□ □” 
550 GOTO 200 

1000 PRINT AT P,Q;CHR$ (156 + N) 

1010 RETURN 





1020 IF 00 < 6 OR O > = 24 THEN PRINT AT P0. 00 :.*tf 
1030 IF 00 > 5 AND O0 < 25 THEN PRINT AT P0. 00; 

D (1 + P0/2.O0/2 - 2) 

1040 RETURN 

2000 IF N= 0 THEN PRINT AT 20. 0: "CONGRATULATIONS. 

YOU TOOK □".. C; "□ MOVES" 

2010 IF N < > 0 THEN PRINT AT 20, 0; "SORRY. WRONG TOTAL - 
"PLEASE TRY AGAIN." 

USING THE ZX81 VERSION 

RLJN; wait for the screen picture to appear. The wood is in the middle; you're on the left, 
sitting inside a "goalpost" area. There is another goalpost on the far side, and you have 
to end up snugly inside that one. The numbers on the forest and you are the magic 
charges. 

Using the four arrow keys, you can move at will across the screen. Watch how the 
numbers add as you move. If you choose your path carefully, you can come out with 
charge zero. 

The program tells you how many moves you needed. See how few you can manage it 


SPECTRUM VERSION 

Change the following lines: 

1 PAPER 7: INK 0: CLS 

60 PRINT AT 9, 1; "g4 g3c"; AT 10. I;"g5"; AT 11. I; "gl g3" 

70 PRINT AT 9, 30; “g3c g7c”; AT 10, 31; "g5c”; AT 11,30; "g3 g2" 
80 [delete this line] 

1000 PRINT AT P.O; FLASH 1;CHR$ (48 + N) 

Get some colour into it by adding: 

8 PAPER4 
55 INK 2 
75 INK 0 
77 PAPER 4 
And some sound with 

222 BEEP .3, 2 * VAL 1$ 

USING THE SPECTRUM VERSION 


The same as for the ZX81. 


How many queens do you need 
to attack the whole chessboard? 


1 queens dominant 


This program lets you distribute chess queens on a board, and shows which squares they 
are attacking. The aim is to attack all of the board with as few queens as possible, by 
judicious choice. It can be done with five of them. 


ZX81 VERSION 

10 DIM B (8, 8) 

20 FOR I = 1 TO 8 
30 FOR J = 1 TO 8 

•=* 40 PRINT AT 2 * I, 2 * J + 8; “gH” 

50 NEXT J 
60 NEXT I 
70 LET P = 2 
80 LET Q = 9 
90 GOSUB 2000 
92 LET P0 = P 
94 LET Q0 = O 

100 IF INKEY$ < > “ ” THEN GOTO 100 

110 IF INKEYS = “ ” THEN GOTO 110 

120 LET 1$ = INKEYS 

130 IF 1$ = “Q” THEN GOTO 200 

140 IF 1$ = “5” THEN LET Q = Q - 2 

150 IF 1$ = “6” THEN LET P = P + 2 

160 IF 1$ = “7” THEN LET P = P - 2 

170 IF 1$ = “8” THEN LET Q = O + 2 

180 GOSUB 1000 

185 GOSUB 1020 

190 GOTO 92 

-> 200 PRINT AT P, Q + 1; " Q ” 
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205 LET I = P/2 
207 LET J = (Q - 7) / 2 
210 LET B (I, J) = 1 
220 FOR T = 1 TO 8 

230 IF B (I, T) = 0 THEN LET B (I, T) = — 1 
240 IF B (T, J) = 0 THEN LET B (T, J) = — 1 
250 NEXTT 

260 FOR F = -1 TO 1 STEP 2 
270 FOR T = -8 TO 8 
280 LET U = I + F * T 
290 LET V = J + T 

300 IF U < 1 OR U > 8 OR V < 1 OR V > 8 THEN GOTO 320 

310 IFB(U, V) = 0THEN LET B(U, V) Ml 

320 NEXTT 

330 NEXTF 

340 GOSUB 2000 

350 GOTO 92 

|=|: 1000 PRINT AT P,Q;“ > ” 

1010 RETURN 
1020 PRINT ATP0, 00; 

1030 RETURN 
2000 FOR I = 1 TO 8 
2010 FOR J = 1 TO 8 

2020 IF B (I, J) = -1 THEN PRINT AT 2 * I, 2 * J + 8; “+'* 
2030 NEXT J 
2040 NEXT I 
2050 RETURN 









USING THE ZX81 VERSION 


RUN. You get a board. Use the arrow keys to move a cursor around. If you hit “Q" it 
gives you a queen on the board, at that position, and also shows you which squares are 
attacked by it. Now add another queen ... keep going until the squares are all attacked. 


SPECTRUM VERSION 

Change the following lines: 


40 PRINT AT 2 * I. 2 * J + 8; 

200 PRINT AT P. Q + 1; “gO” 

1000 [delete this line] 

1020 [delete this line] 

Add some colour: 

1 PAPER 7: INK 0: CLS 
35 PAPER 5 + I + J - 2 * INT ((I + J) / 2) 
1000 PRINT PAPER 7; ATP, Q;“>" 

1020 PRINT PAPER 7; AT P0, O0; 

Set up the queen with user-defined graphics: 

3000 DATA 170, 170,84.56.56, 124,254,0 

3010 FORN = 0TO7 

3020 READ X 

3025 POKE USR “Q” + N, X 

3030 NEXTN 


USING THE SPECTRUM VERSION 

On first switching on, type GO TO 3000 to set up the graphics. Then RUN thereafter. 
Otherwise as for the ZX81. 


What Royalty can do, so can the Clergy: 


3 bishops blatant 


This is just like QUEENS DOMINANT, but with bishops. 


ZX81 VERSION 

Start with the ZX81 version of QUEENS DOMINANT, and make the following 
changes. 

130 IF 1$ = “B" THEN GOTO 200 
200 PRINTATP.Q + 1;“ B ” 

220-250 [delete these lines] 

USING THE ZX81 VERSION 

Just like QUEENS DOMINANT, except you hit “B” to print a bishop. 


SPECTRUM VERSION 

Change the following lines in the Spectrum version of QUEENS DOMINANT: 


130 IF 1$ = "B” THEN GOTO 200 
200 PRINT ATP. 0+ l:“gB" 
220-250 [delete these lines] 

3000 DATA 16. 24, 40, 52, 60, 60. 126,0 
3025 POKE USR "B" + N, X 


USING THE SPECTRUM VERSION 

GO TO 3000, on first switching on. to set up the graphics. After that it's just like 
(surprise) QUEENS DOMINANT, except that you use “B” to print a bishop. 


. . . and so can the Military! 


R rooks rampant 


Just like QUEENS DOMINANT (QD) and BISHOPS BLATANT (BB)—but with 
rooks. 

ZX81 VERSION 

Start from QUEENS DOMINANT, ZX81 version, and change: 

130 IF 1$ = “R" THEN GOTO 200 
200 PRINT AT P, Q + 1; “ R” 

260-330 [delete these lines] 

USING THE ZX81 VERSION 

As for QD and BB, but hit “R” for rook. 

SPECTRUM VERSION 

Change QUEENS DOMINANT, Spectrum version, lines: 

130 IF 1$ = “R" THEN GOTO 200 
200 PRINT AT P. O + 1; “gR” 

260-330 [delete these lines] 

3000 DATA 84, 56, 56, 56, 56, 56, 124,0 
3025 POKE USR “R” + N, X 

USING THE SPECTRUM VERSION 

On first switch-on, GOTO 3000 to set 
to print a rook. 

You’ll need eight of them. 


up the rook graphics. After that, RUN. Use “R" 


I promise, this is the last 
variation on VICARS VACANT. . . 
or whatever the blasted thing 
was. . . 

10 shy ladies 


Not only that: there’s no extra work! Same program as QUEENS DOMINANT; but 
new question: How many queens can you get on the board without any of them attacking 
any of the others? 

Can you get eight on? 

There are, of course, the Cautious Clergymen and the Reluctant Rooks . . . dammit, 
this rip-off has gone on long enough: let’s see something new . . . 



29 





A problem in division, to 
drive you nuts. . . 


ii monkey pueeke 


Five astronauts are cast away on a desert asteroid (well, this is 1982) whose sole 
inhabitant is an (alien) monkey called Knees. (Ever heard of Ape Knees? You’ve 
probably got some in your pocket. . .) The only food on the asteroid is a plentiful supply 
of coconuts. 

The astronuts pick a quantity of coconauts (no, that can’t be right, nevermind .. .)and 
leave them in a heap. 

During the night, the first astronaut wakes up and decides to nick his half of the 
coconuts (fair shares, right?). However, they won’t divide exactly in two: there’s one left 
over. Having left the nut-slicer at a sleazy astroway cafe halfway to Betelgeuse, he solves 
the problem by giving the spare one to the monkey. He takes his coconuts away and eats 
them, leaving the rest in the heap. 

Soon after, astronaut 2 wakes up, and does exactly the same. Again, there is one nut 
left for the monkey after halving the pile. 

Astronauts 3 and 4 in turn take their halves of the nuts. The monkey gets lucky each 
time; but astronaut 5 is a little perplexed, because only one nut is left for him. He vaguely 
thinks there were a few more than that when he went to bed the night before; but it is 
twenty-nine o’clock in the early morn, so his brain isn’t functioning too well. 

How many coconuts were there to start with? 


ZX81 VERSION 

-» 10 PRINT “HOW MANY COCONUTS” 

20 INPUT C 
30 GOSUB500 
40 FOR T = 1 TO 5 
50 IF C = 1 THEN GOTO 700 
60 I.ETC-C - 1 
70 LET K = INT (C/2) 

80 IF2*K< >CTHEN GOTO 600 
90 LET C = K 
100 GOSUB500 
110 NEXTT 


30 


120 PRINT 
130 PRINT 

140 PRINT “TOO MANY” 

150 STOP 

500 PRINT 

510 PRINT 

520 FOR I = 1 TO C 

530 PRINT 

540 NEXT I 

550 RETURN 

600 PRINT 

610 PRINT 

620 PRINT “DISAPPOINTED MONKEY” 

630 STOP 
700 PRINT 
710 PRINT 

720 IF T = 5 THEN PRINT “THAT “ ” S RIGHT” 

730 IF T < > 5 THEN PRINT “NOPE, TOO SMALL” 

USING THE ZX81 VERSION 

RUN. Now you can guess the number of coconuts. The computer runs through the 
night’s events, printing out piles of coconuts, and checking whether everyone’s getting 
what they should. If you’re right, it says so. If wrong, ditto, and you get a clue for 
improvements. 






SPECTRUM VERSION 


Change these: 

10 PRINT “How many coconuts?” 

720 IF T = 5 THEN PRINT FLASH 1; “THAT “ ” S RIGHT!!!!”: 
GOTO 800 


Add these: 

740 STOP 

800 FOR I = 1 TO 50 

810 BEEP .1,40 * (.5 - RND): BORDER 7 * RND 
820 NEXT I 

Also, we can do a hi-res coconut: change this: 

530 PRINT “gN"; 

And add these: 

1000 DATA 28, 54, 122, 118. 252, 248, 112,0 

1010 FORN = 0TO7 

1020 READ X 

1030 POKE USR “N” + N. X 

1040 NEXTN 


USING THE SPECTRUM VERSION 

On first warm-up, GO TO 1000 for the coconuts; then RUN thereafter. Apart from that, 
follow the ZX81 instructions. 
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Arrange the animals amicably: 


JE ecological chain 


You’ve got three dogs, three cats, three birds, and three worms. Arrange them in a row 
so that no dog is next to a cat, no cat to a bird, and no bird to a worm (for obvious 
reasons, they get hungry and so forth )—and no two cats are together, no two dogs, no 
two birds, and no two worms. Even a worm has his pride. 

ZX81 VERSION 

10 DIM K (4) 

M* 20 PRINT AT 3, 10; “D □ D □ D” 

-> 30 PRINT AT 4, 10; “CD CDC” 

-» 40 PRINT AT 5, 10; “B □ B □ B” 

-> 50 PRINT AT 6, 10; “W □ W □ W” 

60 LET C = 0 
70 LET Y$ = “G” 
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-> 100 
-» 102 
-» 104 

n0 

120 

130 

il 140 

150 
160 
180 
190 
200 
210 
I 400 
420 
500 
510 
520 
530 
600 


PRINT AT 0,0; “CHOOSE WHICH CREATURE” 
INPUT X$ 

PRINT AT 0,0;“ [21 spaces] ” 

LET N = CODE X$ - 37 - 22 * (X$ = “W") 

LET K (N) = K (N) + 1 

IF K (N) > 3 THEN GOTO 500 

PRINT AT 12, 6 + 2 » C; X$ 

LET C = C + 1 

PRINT AT 7 - N. 16 - 2 * K (N); 

IF ABS (CODE X$ - CODE Y$) < 2 THEN GOTO 600 
LET Y$ = X$ 

IF C = 12 THEN GOTO 400 
GOTO 100 

PRINT AT 0, 8; “WELL DONE” 

STOP 

PRINT AT 0, 8; “ILLEGAL MOVE” 

PAUSE 50 

PRINT AT 0,8; “[12 spaces] ” 

GOTO 100 

PRINT AT 0, 8; “AAAAAAAAAGGGGGGGHHHHH" 


USING THE ZX81 VERSION 

Type RUN. The available animals are listed by initial. Choose which one to start the row 
with by typing in its initial. It will be displayed. Continue: watch the messages. 


SPECTRUM VERSION 

Change the following lines: 

20 FOR I = 3 TO 6 

30 PRINT AT I, 10; INK I; CHR$ (150 - I) + + 

CHR$ (150 - I) + “□” + CHR$ (150 - I) 

40 NEXT I 
50 [delete this line] 

100 INPUT “Choose which creature”; X$ 

102 [delete this line] 

104 [delete this line] 

110 LET N = CODE X$ - 96 

140 PRINT AT 12, 6 + 2 * C; INK 7 - N; CHR$ (CODE X$ + 47) 
400 PRINT AT 0,8; FLASH 1: “Well Done!” 
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Add these: 


410 BEEP .3. 0: BEEP .3, 4: BEEP .3, 7: BEEP 1.5. 10 
610 FOR 1 = 1 TO 10 
620 BEEP 1/15,-I 
630 NEXT I 

Set up hi-res graphics characters for the animals: 

1000 DATA 60, 66,130,28, 32,34,28, 0,16,112,56,28, 

30, 8, 28, 0, 74, 122. 122, 50. 250, 254, 124, 

0,80, 118, 242, 126, 62, 34, 102, 0 
1010 FOR T = 1 TO 4 
1020 FOR N = 0TO 7 
1030 READ X 

1040 POKE USR CHR$ (T + 143) + N, X 
1050 NEXT N 
1060 NEXTT 

USING THE SPECTRUM VERSION 

On first switch-on, GOTO 1000 for the graphics to be set up. After that, RUN. When 
asked for the animal, input 

A for a worm (NB, not W!) 

B for a bird 
C for a cat 
D for a dog. 

Otherwise, it’s like the ZX81 version. 



This is an oldie, but it’s great fun, 
and the graphics are nice . . . 


<3 tower of Hant with 
pancakes 


You have three plates. On one is a stack of pancakes of sizes 1,2, 3,4,. . . piled with the 
larger ones underneath. You have to transfer the whole stack to another plate, by: 

(a) moving only one pancake at a time; 

(b) only placing it on an empty plate, or on top of a larger pancake. 

These rules aside, you can make as many moves as you want to. 

ZX81 VERSION 

10 LET £$-“■■■■■■■■■■” 

15 LET F$ = “□ no n □□□□□□□” 

18 LETG$ = “gHgHgHgHgHgHgHgHgHgH” 

-» 20 PRINT AT 0, 0; “INPUT SIZE” 

-* 22 INPUT S 

24 PRINT AT0, 0; “ [10 spaces] ” 

25 LETV = INT((11 - S)/2) 

30 DIM D$ (S, S + 2) 

40 FOR T = S TO 1 STEP - 2 

50 LET D$ (T) = F$ (TO (S - T) / 2 ) + E$ (TO T) 

-> 60 IF T < S THEN LET D$ (T + 1) = F$ (TO (S - T) / 2 - 1) + “g8” + 

E$ (TO T) + “g5” 

70 NEXTT 

-> 80 IF S = 2 * INT (S/2) THEN LET D$ (1) 4 

F$ (TO (S - 2) / 2) + “g8 g5” 

100 PRINT AT 16,0; G$ + + G$ + + G$ 

110 FOR 1=1 TO 3 

120 PRINT AT 17,11 *1-6; I 

130 NEXT I 

200 FOR I = 1 TO S 

210 PRINT AT 15 — S + I, V; D$ (I) 



220 NEXT I 
300 DIM A (3, S) 

310 FOR I = 1 TO S 
320 LET A(1,I) = S — 1 + 1 
330 NEXT I 
340 DIM H (3) 

350 IET 11(1) S 

500 PRINT AT 0, 0; “MOVE FROM” 

502 INPUT F 

504 PRINT AT 0, 0; “MOVE TO □ 

506 INPUT G 

508 PRINT AT 0, 0; “ [9 spaces] ” 

511 GOTO 1000 

512 LET R = A (F, H (F)) 

514 LET A (F, H (F) ) = 0 

516 LET A (G, H (G) + 1) = R 
520 LET H (F) = H (F) - 1 
530 LET H (G) = H (G) + 1 
540 LET X = R + 1 + .5 * (10 - R) 

545 IF X > S + 2 THEN LET X = S + 2 

550 PRINT AT 15 - H (F), 11 * F - 11 + V; F$ (TO X); 

AT 16 - H (G), 11 * G - 11 + V; D$ (R) (TO X) 

555 PRINT AT 16, 0; G$ 

557 IF H (2) = S OR H (3) = S THEN GOTO 1200 
560 GOTO 500 

1000 IF H (G) = 0 THEN GOTO 512 

1005 IF H(F) = 0 THEN GOTO 500 

1010 IF A (F, H (F)) »■** A (G, H (G)) THEN GOTO 500 

1020 GOTO 512 

1200 PRINT AT 1, 10; “SUCCESS” 





USING THE ZX81 VERSION 


Start with RUN; wait for the tower to be drawn. Choose which pile to move from, and 

which to, by inputting their numbers. Keep going until you transfer them all to another 

plate. 

SPECTRUM VERSION 

Change the following lines: 

18 [delete this line] 

20 INPUT “Size?”; S 
22 [delete this line] 

24 [delete this line] 

60 IFT < S THEN LET D$ (T + 1) = F$ (TO (S - T) / 2 -1) + “g5” + 

E$ (TO T) + “g5c” 

80 IF S = 2 * INT (S/2) THEN LET D$ (1) = 

F$ (TO (S - 2) / 2 ) + “g5 g5c” 

100 PRINT AT 16, 0; INK 4; E$ + + E$ + + E$ 

500 INPUT “Move from?”; F 
502 [delete this line] 

504 INPUT “Move to?”; G 
506 [delete this line] 

508 [delete this line] 

555 PRINT AT 16,0; INK 4; E$ 

1200 PRINT AT 1,10; FLASH 1; “Success!” 

Now add these: 

1210 FOR I = 1 TO 80 

1220 BORDER 7 * RND 

1230 BEEP 2/(20 + I), 1/2 + 10 * (RND - .5) 

1240 NEXT I 

USING THE SPECTRUM VERSION 

Proceed as for the ZX81. 


Swap the animals using 
knight’s moves: 


J3 several times knightly 


To start with, two species of animal are arranged at the corners of a 3 x 3 square, like 
this: 


ADA 

□ □ 

B □ B 

Your job is to swap the A’s and B’s. Any animal can hop into an empty space, by a move 
like that of a knight in chess. (Two steps sideways and one at right angles to that.) 


ZX81 VERSION 


10 

DIMA 

(3,3) 


20 

LET A 

(LI) 

= 1 

30 

LET A 

(L 3) 

= 1 

40 

LET A 

(3-1) 

= 2 

50 

LET A 

(3,3) 

= 2 

60 

LET A 

(2,2) 

= 3 

70 

LETC 

= 1 


100 

DIM X 

(8) 


110 

DIMY 

(8) 


121 

LETY 

(D = 

14 

122 

LETY 

(2) = 

18 

123 

LETY 

(3) = 

22 

124 

LETY 

(4)1 

22 

125 

LETY 

(5) = 

22 

126 

LETY 

(6) = 

18 

127 

LETY 

(7) = 

14 

128 

LETY 

(8) = 

14 
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131 

132 

133 

134 

135 

136 

137 

138 

200 

210 

700 

702 

710 

715 

718 

719 

720 

722 

725 

730 

735 

740 

750 

760 

770 

780 

790 

800 


LETX(l) = 7 
LET X (2) = 7 
LET X (3) = 7 
LET X (4) = 11 
LET X (5) = 15 
LET X (6) = 15 
LET X (7) = 15 
LET X (8) = 11 
GOSUB 1000 
PRINT ATX (1), Y (1); 

PRINT AT0,0; “MOVE WHICH” 

INPUT 1$ 

IF 1$ < > “ ” THEN GOTO 719 
GOSUB 1100 
GOTO 700 
LET C0 = C 

PRINT AT 0, 0; “WHERE □□□□□” 

INPUT 1$ 

PRINT AT 0,0; “ [10 spaces] ” 

IF 1$ < > « ” THEN GOTO 750 
GOSUB 1100 
GOTO 720 
LET Cl = C 

IF ABS (C0 - Cl) = 3 OR ABS (C0 - Cl) = 5 THEN GOTO 2000 
PRINT AT 0, 0; “ILLEGAL” 

PAUSE 50 

PRINT AT 0,0; “ [7 spaces] ” 

GOTO 700 





1000 FOR I = 1 TO 3 
1010 FOR J = 1 TO 3 
1020 IF A (I, J) = 0 THEN LET Q$ 

-> 1030 IF A (I, J) = 1 THEN LET Q$ = “A” 

-> 1040 IF A (I, J) = 2 THEN LET Q$ = “B” 

1050 IF A (I, J) = 3 THEN LET Q$ = 

1060 PRINT AT 5 + 3*1, 12+ 3*J; Q$ 

1070 NEXT J 
1080 NEXT I 
1090 RETURN 

1100 PRINT AT X (C), Y (C); “Q” 

1110 LETC-C + 1 

1120 IF C > 8 THEN LET C = 1 

1130 PRINT AT X(C), Y(C);“*” 

1140 RETURN 
2000 LET X 0 = (X (C0) — 3) / 4 
2010 LET Y0 = (Y (C0) - 10) / 4 
2020 LET XI = (X (Cl)-3)/4 
2030 LET Y1 = (Y (Cl) - 10) / 4 
2040 LET R = A (X0, Y0) 

2045 IF R = 0 THEN GOTO 770 
2050 LET A (X0, Y0) = A (XI, Yl) 

2060 LET A (XI, Yl) = R 
2070 GOSUB 1000 

2080 IF A (1,1) = 2 AND A (1,3) = 2 AND 

A (3, 1) = 1 AND A (3,3) : 1 THEN GOTO 3000 
2100 GOTO 700 

3000 PRINT AT 0, 8; “GOTCHA” 


USING THE ZX81 VERSION 

RUN. The board will be displayed, with the animals marked A and B. An asterisk acts as 
cursor. If you press “NEWLINE” it moves clockwise; this repeats until you input any 
non-empty string. Then the cursor position defines which animal will move. You select 
where it moves to using the cursor the same way. The move is then made, and you may 
continue. 


SPECTRUM VERSION 

Change these lines: 


700 INPUT “Move which? ”; 1$ 

702 [delete this line] 

720 INPUT “Where?”; 1$ 

722 [delete this line] 

725 [delete this line] 

1030 IF A (I, J) = 1 THEN LET Q$ = “gA” 
1040 IF A (I, J) = 2 THEN LET Q$ = “gB” 
3000 PRINT AT0, 8; FLASH 1; “Gotcha!!!!” 
And add these: 


3010 FORI =1 TO 80 

3020 BORDER 7 * RND 

3030 BEEP 1/(10 + I), 1/2 + 7 * (RND - .3) 

3040 NEXT I 

Set up the graphics characters for “gA” and “gB” to your favourite animals. You could 
use the cat and dog from ECOLOGICAL CHAIN: there they are POKEd into “C” and 
“D” graphics characters, but you can get them into “A” and “B” as follows: 

4000 DATA 74,122,122,50,250,254,124,0, 

80,118,242,126,62,34,102,0 
4010 FOR N = 0 TO 7 
4020 READ X 
4030 POKE USR “A” + N, X 
4040 NEXTN 
4050 FOR N = 0 TO 7 
4060 READ X 
4070 POKE USR “B” + N, X 
4080 NEXTN 


USING THE SPECTRUM VERSION 

GOTO 4000 on first switching on; then use RUN thereafter. It works just like the ZX81 
version, but it’s prettier. 
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And, finally, another animal 
swap-shop: 


J5 beasts on the steps 


Five cats and five dogs sit on a flight of 12 steps. You can move any adjacent pair into the 
blank space. Repeat this until you get the five cats at the top, then the five dogs, and the 
last two steps are blank. 


ZX81 VERSION 



10 

LET A$ = “ [32 inverse spaces] ” 

-> 

15 

LETB$ = “ABABABAB □ Dp 


20 

PRINT AT 5,0 


30 

FOR I = 1 TO 12 


40 

PRINT A$ (TO 15 +I) 


50 

NEXT I 


60 

PRINT A$ + A$ + A$ + A$ 


70 

FOR I = 1 TO 12 


80 

PRINT AT 5 + 1,12 + I + (1 < 10); I 


90 

NEXT I 


95 

LETP= 11 


100 

FOR I = 1 TO 5 

-* 

110 

PRINT AT 4 + 2 * 1,14 + 2 * I; “A” 


120 

PRINT AT5 + 2 * 1,15 + 2 * I; “B” 


130 

NEXT I 


200 

PRINT AT 0,0; “MOVE WHICH” 


201 

INPUT N 


202 

IF N < 1 OR N > 11 THEN GOTO 200 

-» 

203 

PRINT AT 0,0; “ [10 spaces] ” 


205 

LET X$ = B$ (N) 


206 

LET Y$ = B$ (N + 1) 


208 

IF X$ = OR Y$ = THEN GOTO 500 
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210 PRINT AT 5 + N, 15 + N; AT6 + N, 16 + N; 
AT 5 + P, 15 + P; X$; AT6 + P, 16 + P; Y$ 

211 LET B$ (N) = 

212 LET B$ (N + 1) = 

213 LET B$ (P) = X$ 

214 LET B$ (P + 1) = Y$ 

220 LET P = N 

225 IF B$ = “AAAAABBBBB ||ffe|” THEN GOTO 1000 
230 GOTO 200 

500 PRINT AT 0, 0; “ILLEGAL” 

510 PAUSE 50 

520 PRINT AT 0,0; “ [7 spaces] ” 

530 GOTO 200 

-> 1000 PRINT AT 1, 8; “DONE IT” 


USING THE ZX81 VERSION 

RUN. You specify the first of the two adjacent animals you wish to move, by the number 
of the corresponding step. All else is automatic. 





SPECTRUM VERSION 

Change these lines: 


15 LET B$ = “gA gB gA gB gA gB gA gB gA gB □ □” 
110 PRINT AT 4 + 2*1, 14+ 2*1; “gA” 

120 PRINT AT 5 + 2*1, 15 + 2*1; “gB" 

.200 INPUT “Move which?”; N 
201 [delete this line] 

203 [delete this line] 

225 IF B$ = “gA gA gA gA gA gB gB gB gB gB □ □” 
THEN GOTO 1000 

1000 PRINT AT 1,8; FLASH 1; “DONE IT!” 

Add these lines: 

1020 FOR I = 1 TO 30 

1030 BORDER 4: BEEP . 1, 12: BORDER 2: BEEP .1,0 
1040 NEXT I 

Set up the user-defined graphics: 

2000 DATA 37, 61, 61,25, 125, 127,62,0, 

40, 59,121,63,31,17,51,0 
2010 FOR N = 0 TO 7 
2020 READ X 
2030 POKE USR “A” + N, X 
2040 NEXTN 
2050 FOR N = 0TO 7 
2060 READ X 
2070 POKE USR “B” + N,X 
2080 NEXTN 


(These numbers are exact halves of those used in SEVERAL TIMES KNIGHTLY. If 
you wonder why, don’t halve them, and see . . .) 

USING THE SPECTRUM VERSION 

On first switch-on, RUN 2000 or GOTO 2000. Thereafter, RUN is fine. Apart from that, 
the instructions are as for the ZX81 version. 
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Esta pagina esta en bianco en el original. 
This page are clear in the original 


LUflRninGu 


spectrumiEars only past 
this point! 

Here are a few programs which will only run on the ZX Spectrum. Well, we thought you 
ought to be given some justification for having bought the all-singing, all-dancing 
version, rather than the steam-driven ZX81. And it might give all you ZX81ers an excuse 
to rush out and buy Spectrums. And that means we’ll sell lots more copies of our book 
Easy Programming for the ZX Spectrum. 

Well, we can dream can’t we? 
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Here’s an old favourite with some twists 
you may not have seen before 


JB solitaire 


This is the standard game of solitaire. The pegs are displayed as asterisks, and the four 
corners, which cannot be played in. show up as capital O’s. The rows are labelled a-g on 
the screen, and the columns are labelled 1-7. 

The computer prompts you for a move in the order “square to be moved from", 
"square to be moved to". Enter these in the order letter, digit. So you could start by 
moving f4 into the centre square, d4. 

You would type: 
f4 (Enter) d4 (Enter) 

and the computer will move the pegs for you. Watch it! It notices if you cheat! 

Just in case you're not familiar with this puzzle here’s a quick resume of the rules: 

1. The object of the game is to remove all but one of the pegs from the board. 

2. A legal move consists of taking a peg and leap-frogging an adjacent peg (vertically or 
horizontally, but not diagonally) into an empty square. The leap-frogged peg is 
removed from the board. 

10 LET n = 32 

20 LET getmove = 1000: LET testmove = 2000 
30 LET makemove = 3000 
40 FOR r = 4 TO 16 STEP 2 
50 FOR c = 9 TO 21 STEP 2 
60 PRINT PAPER 5; AT r. c; "O" 

70 NEXT c 
80 NEXT r 

100 FOR c = 13 TO 17 STEP 2 
110 FOR r = 4 TO 16 STEP 2 
120 PRINT PAPER 6; AT r. c: 

130 NEXT r 
140 NEXT c 

150 FOR r = 8 TO 12 STEP 2 
160 FOR c = 9 TO 21 STEP 2 
170 PRINT PAPER 6; AT r. c; *'**j 
180 NEXT c 
190 NEXT r 
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200 PRINT PAPER 6; OVER 1; AT 10. 15;“*” 

210 FOR r = 4 TO 16 STEP 2 
220 PRINT AT r. 7; CHR$ (r/2 + 95) 

230 NEXT r 

240 FOR c = 9 TO 21 STEP 2 

250 PRINT AT 18. c; CHR$ (c/2 + 44) 

260 NEXT c 

270 GO SUB getmove 

280 GO SUB testmove 

290 IF NOT legal THEN PRINT AT 0, 0; "Illegal Move!!”: GO TO 270 

300 PRINT AT0. 0; “□□□□□□□□□□□□□ □” [14spaces] 

310 GO SUB makemove: LET n = n - 1 

320 IF n > 1 THEN GO TO 270 

330 PRINT AT0.0; “You’ve done it!" 

340 GO TO 9999 
1000 INPUT “from to:"; f$, t$ 

1010 LET rf = 2 * (CODE f$ (1) - 95) 

1020 LET cf = 2 * (CODE f$ (2) - 45) + 1 
1030 LET rt = 2 * (CODE t$ (1) - 95) 

1040 LET ct = 2 * (CODE t$ (2) - 45) + 1 
1050 RETURN 
2000 LET legal = 1 

2010 IF SCREENS (rf, cf) < THEN LET legal = 0 
2020 IF SCREENS (rt. ct>«> THEN LET legal = 0 
2025 IF SCREENS ( (rf + rt) / 2. (cf + ct) / 2) <> "*" 

THEN LET legal = 0 

2030 IF ABS (rf - rt) = 4 AND cf < > ct THEN LET legal = 0 
2040 IF ABS (cf - ct) = 4 AND rf « > rt THEN LET legal = 0 
2050 IF ABS (rf - rt) < > 4 AND rf < > rt THEN LET legal = 0 
2060 IF ABS (cf - ct) < > 4 AND cf < > ct THEN LET legal = 0 
2070 RETURN 

3000 PRINT PAPER 6; OVER 1; AT rf. cf; "*" 

3010 PRINT PAPER 6; AT rt. ct; 

3020 PRINT PAPER 6; OVER 1; AT (rf + rt) / 2. (cf + ct) / 2; “*" 

3030 RETURN 


There are other versions of the game, in which the rules for peg removal are just the 
same, hut the number of pegs, and their starting positions differ. 




One of the simplest is the “Latin Cross". You can generate this shape by editing lines 
10, 120 and 170 as follows: 

10 LET n = 6 

120 PRINT PAPER 6; ATr, c;“D” 

170 PRINT PAPER 6; AT r. c; 

Now replace line 200: 

200 GO SUB 4000 
and add this routine: 

4000 FOR r = 6 TO 12 STEP 2 
4010 PRINT PAPER 6: ATr, 15;“*” 

4020 NEXT r 

4030 PRINT PAPER6; ATS, 13;"*” 

4040 PRINT AT 8, 17;“*” 

4050 RETURN 

To form a “Greek Cross”, make exactly the same modifications as for the Latin Cross, 
but replace the whole subroutine from line 4000 onwards with: 

4000 FOR r = 6 TO l4 STEP 2 
4010 PRINT ATr. 15;“*” 

4020 NEXT r 

4030 FOR c = 11 TO 19 STEP 2 
4040 PRINT PAPER 6; AT 8, 17; “*” 

4050 NEXT c 
4060 RETURN 
And edit line 10: 

10 LET n = 9 

Finally here’s one known as the “tilted square”. You’ll see why when it’s drawn! 

Take the original program and add the following lines: 

201 PRINT PAPER 6; OVER 1; AT 4, 13; "*” 

202 PRINT PAPER 6; OVER 1; AT 4, 17;“*” 

203 PRINT PAPER 6; OVER 1; AT 8, 21; “*” 

204 PRINT PAPER 6; OVER 1; AT 12. 21; “*” 

205 PRINT PAPER 6; OVER 1; AT 16, 17; “*” 

206 PRINT PAPER 6; OVER 1; AT 16, 13; “*” 

207 PRINT PAPER 6; OVER 1; AT 12, 9; “*” 

208 PRINT PAPER 6; OVER 1; AT 8, 9; “*” 

Then edit line 10: 

10 LET n = 24 
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How quickly can you unjumble letters? 


H anagrams against 
the cinch 


The computer displays an anagram of a ten-letter word, and then starts to count down 
from 999 to 0. It takes just under 50 seconds to get there. You have to solve the anagram 
inside this time. As soon as you enter the first letter, the clock will stop, but don’t try to 
use this feature for increasing your thinking time because you only get one chance and 
you can’t delete a letter once it's been entered! 


1 LET cont = 350: LET end = 370 

2 LET delay = 30 

3 LET pause = 1000 

4 LET begin = 90 

5 LET clear = 2000 

10 DATA “disability” 

11 DATA “indefinite” 

12 DATA “perfidious” 

13 DATA “improbable” 

14 DATA “practising” 

15 DATA “caretakers” 

16 DATA “medicament” 

17 DATA “reciprocal” 

18 DATA “procedures” 

19 DATA “elementary” 

20 DATA “regardless” 

21 DATA “algorithms” 

22 DATA “traversing” 

23 DATA “represents” 

24 DATA “preciously” 

25 DATA “completing” 

26 DATA “subroutine” 

27 DATA “inversions” 

28 DATA “cryptogram” 

29 DATA “statements” 


30 

90 

100 

110 

115 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

215 

220 

225 

226 

227 

230 

240 

250 

260 

265 

270 

280 

290 

300 

305 

310 

315 

320 

330 

340 

350 

360 


DIM w$ (10) 

RANDOMIZE 

RESTORE (INT (RND * 20) + 10) 

READ w$ 

LET x$ = w$ 

FOR i = 1 TO 20 
LET p = INT (RND * 10) + 1 
LET q = INT (RND * 10) + 1 
LET t$ = w$ (p) 

LET w$ (p) = w$ (q) 

LET w$ (q) = t$ 

NEXT i 

PRINT AT 2, 2; “Can you solve this anagram?” 

PRINT AT 6, 10; w$ 

PRINT AT 10, 2; “Your time starts now” 

PRINT AT 17, 10; “-” 

FORi = 999TO0STEP -1 

IF i > 99 THEN PRINT AT 10, 25; i: GO TO 230 

IF i > 9 THEN PRINT AT 10, 25; “□”; i: GO TO 230 

PRINT AT 10, 25; I 

LET c$ = INKEY$ 

IF c$ = “ ” THEN GO TO cont 
LET w$ (1) = c$ 

PRINT AT 16, 10; w$ (1) 

GO SUB pause 
FOR p = 2 TO 10 
LET c$ = INKEY$ 

IF c$ = “ ” THEN GO TO 280 
LET w$ (p) — c$ 

PRINT AT 16, p + 9; c$ 

LET c$ = “ ” 

GO SUB pause 
NEXT p 

IF w$ = x$ THEN PRINT AT 20. 2; "Well done!!!”: GO TO end 

PRINT AT 20, 2; “Wrong! □ □ The word was.□□□□□□□”; 

FLASH 1; x$: GO TO end 
NEXT i 

PRINT AT 20, 2; “Out of time . . . The word was . . . . □ □||t| I 
FLASH 1; x$ 




370 

380 

390 

1000 

1010 

1020 

2000 

2005 

2010 

2015 

2020 


INPUT “Want another one?"; q$ 

IF q$ = "yes" THEN GO SUB clear: GO TO begin 
GO TO 9999 


FOR x = 1 TO delay 
NEXT x 
RETURN 

PRINT AT 16. 10: "□□□□□□□□□ □" [10 spaces] 

PRINT AT 6. 19: □□□□□□□" [10 spaces) 

PRINT AT 20. 2: “dtf3 □□□□□□□□□□□□□□□□ 

□ □ □ □ □$$! □ □ □ □ OOO □ □□□aaao □ □" [42 spaces] 

PRINT AT 10. 2; "tH □□□□□□□□□□□□□□□□ 

□ □□□□□□□□□" [28 spaces] 

RETURN 
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Here’s a favourite puzzle book game 
given a little bit of Spectrum pzazz 


J3 hidden words 


Give the computer up to ten words, each up to ten letters long. (A ten-letter word will 
just go to the right-hand edge of the screen when you input it, so the rule is that you can't 
have a word which is split over two lines). 

The computer will hide the words, horizontally, vertically or diagonally, backwards or 
forwards, in an otherwise random square of letters. When you find one, tell the 
computer where it starts. For instance, if it’s in square gl2 type: 
g (Enter) 12 (Enter) 

Then enter a number which indicates which direction the word takes from there. The 
direction values are: 


2 



6 


Then say what the word is. If you’re right, the computer will delete the word from the list 
of missing words, and colour it in, on the square. 

If you enter a word which is on the square, but isn’t in the list of missing words, the 
computer reckons that’s cheating and refuses to play with you any more! 

1 LET fillin = 1000: LET test = 2000 

2 LET colour = 3000: LET rubout = 4000: 

LET list = 5000: LET delete = 6000 

3 LET n = 0 

4 RANDOMIZE 

5 CLS 

6 LET pc = 1 

10 DIM w$ (11, 11) 

20 DIM s$ (18. 18) 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

315 

320 

322 

325 

330 

340 

350 

360 

361 

370 

1000 

1010 

1020 

1030 

1035 

1040 


INPUT “How many words"; nw 
FOR i = 1 TO nw 

INPUT “Give me a word please"; w$ (i) 

NEXT i 

FOR i = 1 TO nw 
LETd = INT (RND * 8) 

LET r = INT (RND * 18) + 1 
LET c = INT (RND* 18) + 1 
GO SUB fillin 

IF NOT filled THEN GO TO 150 
NEXT i 

FOR r = 1 TO 18 
FOR c = 1 TO 18 

IF s$ (r. c) = THEN LET s$ (r, c) = CHR$ (INT (RND * 26) + 97) 
NEXT c 
NEXT r 

FOR r = 1 TO 18 

PRINT AT r. 0; CHR$ (r + 96) 

PRINT AT r, 2; s$ (r) 

NEXT r 

PRINT AT 20, 2; “□ □□□□□□□□1 11111111" 

PRINT AT 21,2; “1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8" 

GO SUB list 

INPUT “Word start"; b$, bn 
PRINT AT 16, 25; “□□□□ 1 

INPUT "and direction"; d 
INPUT “Which word is it”; f$ 

GO SUB test 

IF valid THEN GO SUB colour 

IF n < nw THEN GO TO 320 

PRINT FLASH 1; AT 16, 22; “Well done” 

GO TO 9999 
LET p = 1 

IF w$ (i, p) = THEN LET filled = 1: RETURN 

IF r > 18 OR r < 1 OR c > 18 OR c < 1 THEN GO SUB rubout: 

LET filled = 0: RETURN 

IF s$ (r, c) < > THEN GO SUB rubout: LET filled = 0: RETURN 
LET s$ (r, c) = w$ (i,p) 

LET p = p + 1 


1050 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

2000 

2010 

2020 

2030 

2040 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2195 

2197 

2200 

3000 

3005 

3006 

3010 

3020 

3030 

3040 

3100 

3110 

3120 

3130 


GOTO 1100 + d* 10 

LET c = c + 1: GO TO 1010 

LET c = c + 1: LET r = r — 1: GO TO 1010 

LETr = r - 1: GOTO 1010 

LETc = c — 1: LETr = r - 1: GOTO 1010 

LETc = c — 1: GOTO 1010 

LETc = c - 1: LETr = r + 1: GO TO 1010 

LET r = r +1: GO TO 1010 

LET r = r + 1: LET c = c + 1: GO TO 1010 

LET r = CODE b$ - 96 

LETc = bn 

FOR p = 1 TO LEN f$ 

IF f$ (p) < > s$ (r, c) THEN PRINT FLASH 1; AT 16, 25; “Wrong!”; 

LET valid = 0: RETURN 

GO TO 2100 + 10 * d 

LET c = c + 1: GO TO 2180 

LET c = c + 1: LET r = r — 1: GO TO 2180 

LET r = r — 1: GO TO 2180 

LET c 1: LET r = r - 1: GO TO 2180 

LET c = c — 1: GO TO 2180 

LET c = c — 1: LET r = r + 1: GO TO 2180 

LET r = r + 1: GO TO 2180 

LET r = r + l:LETc = c+ 1: GO TO 2180 

NEXT p 

LET valid = 1 

LET n = n + 1 

GO SUB delete 

RETURN 

LET r = CODE b$ - 96 
LET pc = pc + 1 
IF pc > 6 THEN LET pc = 1 
LET c = bn + 1 
FOR pslTO LEN f$ 

PRINT PAPER pc; AT r, c; f$ (p) 

GO TO 3100+ 10* d 

LET c *#+ 1: GO TO 3180 

LETc = c + 1: LETr — r — LGOTO3180 

LET r = r- LGOTO3180 

LETc = c - 1: LETr = r- 1: GOTO3180 


3140 

3150 

3160 

3170 

3180 

3185 

3190 

4000 

4010 

4020 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

5000 

5010 

5020 

5030 

5040 

5050 

6000 

6005 

6010 

6020 


LET c = c — 1: GO TO 3180 

LET c = c — 1: LET r = r + 1: GO TO 3180 

LET r = r + 1: GO TO 3180 

LETr = r + 1: LETc = c + 1: GO TO 3180 

NEXT p 

PAPER 7 

RETURN 

IF p = 1 THEN RETURN 

LET p = p- 1 

GO TO 4100 + 10 * d 

LET c = c - 1: GO TO 4180 

LET c Jpg' 1: LET 1: GO TO 4180 

LET r = r + LGOTO4180 

LETc = c + 1: LETr = r + LGOTO4180 

LET c = c + 1: GO TO 4180 

LET c = c + 1: LET r = r - 1: GO TO 4180 

LETr = r - LGOTO4180 

LETr = r - l:LETc = c- LGOTO4180 

LET s$ (r, c) = 

GO TO 4000 

PRINT AT0, 22; “Missing” 

PRINT AT 1,22; “words. 

FOR i = 1 TO nw 

PRINT PAPER 6; AT i + 2,21;w$ (i) 

NEXT i 
RETURN 
LET w$ (11) = f$ 

FOR i = 1 TO nw 

IF w$ (11) = w$ (i) THEN PRINT AT i + 2, 21; 
□ MOD □ □ RETURN 

NEXT i 


See how you would fare in Military Intelligence! 


JR cryptograms 


The computer will select a sentence, and display an encyphered version (without spaces 
between words—that would be a real giveaway!) on the screen. You have to work out 
the code, and key in the original sentence. You can put spaces in the decoded sentence to 
make it more readable. Careful though—you only get two guesses! 

Don’t think that when you’ve broken the code, the puzzle is finished. The computer 
changes its coding system every time it codes a new sentence! 

Footnote (i) During the First World War, British Naval Intelligence invented a 
number of cyphering systems. To test one, which they were rather 
proud of, they encyphered a short message and gave it to their 
American counterparts to see if they could crack it. The following day, 
back came the clear text message: 

“This code is absolutely unbreakable” 

By a curious coincidence, this is 31 letters long (without spaces) so it 
just fits (with one spare position) on a line on the screen. So I’ve chosen 
it as one of the messages to decode. The other messages all have 31 
letters too, so it’s no good just counting how many there are in the 
coded message. 

Footnote (ii) There’s obviously a big clue to solving one of these cryptograms, 
because you know the answer has to be one of the five sentences in the 
DATA statements, so I’m not going to give you much help. But I will 
tell you that the cypher the computer chooses is always a simple 
substitution cypher, which means that if, for instance, “a” codes as “g” 
at the beginning of the message, it will still code “a” as “g” at the end. If 
you want to make things more difficult for yourself, why not get a 
friend to change the DATA statements? After that, no peeking! 

1 RANDOMIZE 

2 DIM w$ (5, 31): DIM t (26): DIM n$ (31) 

3 DATA “ this code is absolutely unbreakable” 

4 DATA “the sentence in front of you is in code" 

5 DATA “translating codes is a black art form” 

6 DATA “cryptologists are men who study code" 

7 DATA “a cryptographer deciphers messages” 

10 LET trys = 0 

70 FOR p = 1 TO 26 


80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

252 

253 

254 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

385 

390 

400 

410 

420 


LETt(p) = p 
NEXT p 
FOR r =1 TO 5 
LET p = 1 
READ m$ 

FOR c = 1 TO 31 

IF m$ (p) = THEN LET p = p + 1: GO TO 140 
LET w$ (r, c) = m$ (p) 

LET p = p + 1 
NEXT c 
NEXT r 

FOR i = 1 TO 50 
LET p = INT (RND * 26) + 1 
LET q = INT (RND * 26) + 1 
LET temp = t (p) 

LET t (p) = t (q) 

LET t (q) = temp 
NEXT i 

FOR i = 1 TO 26 
LET t (i) = t (i) + 96 
NEXT i 

LET r = INT (RND * 5) + 1 
FOR c = 1 TO 31 

LET n$ (c) = CHR$ (t (CODE w$ (r, c) - CODE “a” + 1) ) 

NEXT c 

PRINT AT 2, 2; “Here’s the message . . 

PRINT AT 10, 0; n$ 

INPUT “What’s your decode?”; d$ 

LET c = 1 

FOR p = 1 TO LEN d$ 

IF d$ (p) = *‘0” THEN GO TO 380 
LET n$ (c) = d$ (p) 

LET c = c + 1 
NEXTp 

LET trys = trys + 1 

IF n$ < > w$ (r) AND trys < 2 THEN PRINT AT 2, 2; 

“Try again [15 spaces]’’: GO TO 320 

IF n$ = w$ (r) THEN PRINT AT 2, 2; “You’ve got it!!!! □ □ □ □ IWI ” 
INPUT “Want another one?”; q$ 

IF q$ = “yes” THEN CLS: RESTORE: GO TO 1 
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Other titles of interest 

PEEK, POKE, BYTE & RAM! Basic Programming for the ZX81 

Ian Stewart & Robin Jones 

‘Far and away the best book for ZX81 users new to computing’ —Popular Computing 
Weekly 

. . the best introduction to using this trail-blazing micro’— Computers in Schools 
‘One of fifty books already published on the Sinclair micros, it is the best introduction 
accessible to all computing novices’ —Laboratory Equipment Digest 

Machine Code and better Basic 

Ian Stewart & Robin Jones 

The ZX81 Add-On Book 

Martin Wren-Hilton 

Easy Programming for the ZX Spectrum 

Ian Stewart & Robin Jones 

Games to Play on your Spectrum 

Martin Wren-Hilton 


Available from October ’82 

Spectrum in Education 

Eric Deeson 

Easy Programming for the BBC Micro 

Eric Deeson 

Further Programming for the BBC Micro 

Alan Thomas 


Plus lots more! Keep your eye on the magazines for up-to-date news. 
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Happy puzzling! 


Can you: 

• weave your way through the 
magic forest? 

• ferry the wolf, the goat, and the 
cabbage across the river? 

• share out the wine without spilling a 


All programs are designed to RUN on the 
Spectrum, and the first 15 are listed for 
the ZX81 with embellishments indicated 
make use of the special Spectrum features. 
Note: You’ll need a 16K RAM pack for th 


